51000 REM BEFEHLSZERLEGUNG-CODIERUNG -------------------------------------------
51001 :
51005 REM BE$ IN BE$(1)-BE$(N) ZERLEGEN
51010 FORI=0TO10:BE$(I)="":NEXTI
51020 WZ=0
51030 FORI=1TOLEN(BE$)
51040 : IFMID$(BE$,I,1)=" "THENWZ=WZ+1:GOTO51060
51045 : IFWZ>10THENPRINT"EINGABE IST ZU LANG !":I=LEN(BE$)+1:GOTO51060
51050 : BE$(WZ)=BE$(WZ)+MID$(BE$,I,1)
51060 NEXTI